home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
085 - Merlin -2.dsk
/
MERLIN.2
/
NEW.DISK
/
APPLESOFT.S
next >
Wrap
Text File
|
2000-01-01
|
3KB
|
154 lines
********************************
* *
* Applesoft *
* *
* Applesoft is a copyrighted *
* program of Apple Computer, *
* Inc. and Microsoft, Inc. *
* *
* This source listing is for *
* use only by the rightful *
* owner of the copy of *
* Applesoft from which it was *
* generated and may not be *
* published or distributed to *
* others, whether or not for *
* commercial purposes. *
*------------------------------*
* Revision: 6/10/83 *
*------------------------------*
* Put SYM $8000 to assemble. *
* *
********************************
ERR ($75) ;Check that SYM is set
ERR ($76)-$80 ; to $8000
SAVEOBJ KBD
TR ;3 bytes/line printout
EXP OFF ;Do not print macro expansion
ORG $D000
DO 0
INCR MAC
INC ]1
BNE NI
INC ]1+1
NI <<<
DECR MAC
LDX ]1
BNE ND
DEC ]1+1
ND DEC ]1
<<<
CMPR MAC
LDA ]1
CMP ]2
LDA ]1+1
SBC ]2+1
<<<
TR MAC
LDA ]1
STA ]2
<<<
TRDB MAC
>>> TR.]1 ;]2
>>> TR.]1+1 ;]2+1
<<<
TRX MAC
LDX ]1
STX ]2
LDX ]1+1
STX ]2+1
<<<
TRAX MAC
LDA ]1
LDX ]1+1
STA ]2
STX ]2+1
<<<
TRAY MAC
LDA ]1
LDY ]1+1
STA ]2
STY ]2+1
<<<
TRXY MAC
LDX ]1
LDY ]1+1
STX ]2
STY ]2+1
<<<
AD MAC
LDA ]1
ADC ]2
STA ]3
<<<
ADD MAC
CLC
>>> AD.]1 ;]2;]3
>>> AD.]1+1 ;]2+1;]3+1
<<<
SB MAC
LDA ]1
SBC ]2
STA ]3
<<<
SUB MAC
SEC
>>> SB.]1 ;]2;]3
>>> SB.]1+1 ;]2+1;]3+1
<<<
BUMP MAC
ADC ]1
STA ]1
BCC BPD
INC ]1+1
BPD <<<
PUSH MAC
LDA ]1+1
PHA
LDA ]1
PHA
<<<
PULL MAC
PLA
STA ]1
PLA
STA ]1+1
<<<
NEG MAC
LDA ]1
EOR #$FF
STA ]1
<<<
FIN
DO SAVEOBJ
DSK APPLESOFT.OBJ
FIN
PUT APSOFT I
PUT APSOFT II
PUT APSOFT III
PUT APSOFT IV